home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 17 / 017.d81 / contents map (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  90 lines
  1. 0 REM CONTENTS MAP READER
  2. 1 IFPEEK(51201)<>12ORPEEK(51202)<>200THENLOAD"ROUTINES V4",8,1
  3. 2 D$=CHR$(96):FORX=1TO6:D$=D$+D$:NEXT
  4. 3 OPEN15,8,15
  5. 4 POKE650,255
  6. 5 DA$=" --------------------------------------"
  7. 6 LI=52016:SU=51206:SD=51209:CL=51203
  8. 7 FORC=217TO242:POKEL,PEEK(L)OR128:NEXT
  9. 8 PRINT"[147][154]";:POKE53281,0:POKE53282,9
  10. 9 POKE1020,4:POKE1021,21:POKE1022,1:POKE1023,38
  11. 10 FI$="CONTENTS MAP.T"
  12. 20 DM=500:DIMIN$(DM)
  13. 30 GOSUB5000:REMOPENING BLURB
  14. 40 GOSUB6000:REMLOAD FILE
  15. 45 PRINT"[147]";:GOTO50
  16. 46 PRINT"[176]";LEFT$(D$,38);"[174]";
  17. 47 FORI=1TO18:PRINT"[221]                                      [221]";:NEXT
  18. 48 PRINT"[173]";LEFT$(D$,38);"[189]";:PRINT"";:FORL=217TO242:POKEL,128ORPEEK(L):NEXT
  19. 49 RETURN
  20. 50 GOSUB7000:GOSUB46:PRINT"";:
  21. 800 PRINT:FORC1=0TO16:PRINT""IN$(C1):NEXT:PRINT""IN$(C1);:LP=0
  22. 810 POKE646,1:SYSCL:PRINT"";
  23. 850 GETK$:PRINT"[158]";:IFK$=""THEN850
  24. 860 IFK$="[145]"ORK$=""ORK$="[134]"ORK$="[138]"THENGOSUB11000:GOTO850
  25. 865 IFK$="[137]"ORK$="[133]"THENFORCC=1TO18:GOSUB11000:NEXT:GOTO850
  26. 870 IFK$=""ORK$="[157]"ORK$="[139]"ORK$="[135]"THENGOSUB10000:GOTO850
  27. 875 IFK$="[136]"ORK$="[140]"THENFORCC=1TO18:GOSUB10000:NEXT:GOTO850
  28. 877 IFK$="P"THENGOSUB2000:PRINT"[147]":GOTO50
  29. 878 IFK$="X"ORK$="[216]"THEN63000
  30. 879 IFK$="\"ORK$="[169]"THENGOSUB12000:         GOTO850
  31. 880 PRINT"[158]";:GOSUB7000:PRINT"[146][154]";:GOSUB7000:GOTO850
  32. 1000 :
  33. 2000 REM HARD(null)
  34. 2010 PRINT""DA$:PRINT"[212]URN ON YOUR PRINTER AND PRESS[160]<RETURN>"
  35. 2011 GETK$:IFK$=""THEN2011
  36. 2012 IFK$<>CHR$(13)THEN2090
  37. 2015 PRINT"  [208]RESS ANY KEY TO STOP PRINTING.      "
  38. 2020 PRINT"";
  39. 2030 OPEN4,4,7:PRINT#4,CHR$(17);
  40. 2040 LP=0:PAGE=0
  41. 2050 FOR PP=0TOLL
  42. 2052 PRINT#4,IN$(PP):PAGE=PAGE+1
  43. 2054 IFPAGE=60THENPRINT#4," ":PAGE=0
  44. 2056 NEXT PP:PRINT#4:CLOSE4
  45. 2090 RETURN
  46. 3000 REM  PRINT LINES
  47. 3010 PRINT#4,IN$(I);SPC(40-LEN(IN$(I)));IN$(I+RS)
  48. 3020 RETURN
  49. 5000 PRINT""DA$:PRINT"         --[204]OADING SOME TEXT--"
  50. 5010 PRINT" ----------[208]LEASE BE PATIENT.----------"
  51. 5045 PRINT:PRINT:PRINT"[208]RESS 'X' TO EXIT NOW WITHOUT READING"
  52. 5050 PRINT:PRINT"THIS ARTICLE."
  53. 5060 RETURN
  54. 6000 OPEN8,8,8,FI$
  55. 6030 LL=0:POKE781,8:SYS65478
  56. 6040 SYSLI,B$:IN$(LL)=MID$(B$,1)
  57. 6044 IFPEEK(198)<>0THENIFPEEK(631)=88THEN6100
  58. 6045 IFST=0THENLL=LL+1:GOTO6040
  59. 6100 SYS65484:CLOSE8:CLOSE15
  60. 6105 LC=LL:NL=LL
  61. 6110 RETURN
  62. 6150 SYS65484:CLOSE8:CLOSE15
  63. 7000 PRINT" -----[208]RESS F1-F7 KEYS TO MOVE TEXT----"
  64. 7005 PRINT" -------[208]RESS 'P' TO PRINT TEXT.-------"
  65. 7010 PRINT" ----------[208]RESS 'X' TO EXIT-----------"
  66. 7015 PRINTDA$
  67. 7020 RETURN
  68. 10000 POKE646,1:SYSCL:PRINT"";:              IFLP>=LC-15THEN10015
  69. 10002 PRINT"";:        LP=LP+1:SYSSU
  70. 10005 IFLEFT$(IN$(LP+17),4)="\OAD"THEN        PRINT"":GOTO10020
  71. 10010 PRINTIN$(LP+17):GOTO10020
  72. 10015 POKE53280,RND(1)*15
  73. 10020 RETURN
  74. 10030 :
  75. 11000 POKE646,1:SYSCL:PRINT"";:              IFLP<=1THEN11015
  76. 11002 PRINT"";:LP=LP-1:SYSSD
  77. 11005 IFLEFT$(IN$(LP),4)="\OAD"THEN           PRINT"":GOTO10020
  78. 11010 PRINTIN$(LP):GOTO11020
  79. 11015 POKE53280,RND(1)*15
  80. 11020 RETURN
  81. 12000 REM   CAN YOU RUN IT NOW?
  82. 12010 FORX=LPTOLP+15:IFLEFT$(IN$(X),4)=       "\OAD"THEN13000
  83. 12020 NEXT:RETURN
  84. 13000 REM    YES, YOU CAN RUN IT NOW!
  85. 13010 PRINT"[147]L"MID$(IN$(X),2):             PRINT"RUN"
  86. 13020 GOTO63020
  87. 63000 POKE650,128
  88. 63010 PRINT"[147]LOAD"CHR$(34)"HELLO"          CHR$(34)",8":PRINT"RUN"
  89. 63020 POKE631,13:POKE632,13:POKE198,2:        END
  90.